home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_l2img.ps < prev    next >
Text File  |  2003-01-03  |  5KB  |  175 lines
  1. %    Copyright (C) 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Emulate the Level 2 dictionary-based image operator in Level 1,
  8. % except for Interpolate (ignored) and MultipleDataSources = true;
  9. % also, we require that the data source be either a procedure of a
  10. % particular form or a stream, not a string or a general procedure.
  11.  
  12. % pdf2ps copies the portion of this file from %BEGIN to %END if Level 1
  13. % compatible output is requested.
  14.  
  15. /currentglobal where
  16.  { pop currentglobal { setglobal } true setglobal }
  17.  { { } }
  18. ifelse
  19.  
  20. /packedarray where
  21.  { pop }
  22.  { /packedarray { array astore readonly } bind def }
  23. ifelse
  24.  
  25. %BEGIN
  26.  
  27. 11 dict /.csncompdict 1 index def begin
  28.   /DeviceGray { 1 /setgray load } bind def
  29.   /DeviceRGB { 3 /setrgbcolor load } bind def
  30.   /DeviceCMYK { 4 /setcmykcolor load } bind def
  31.   /Indexed
  32.    { dup 1 index 1 get //.csncompdict exch get exec
  33.         % Stack: [/Indexed base hival map] ncomp basesetcolor
  34.      3 -1 roll 3 get mark 3 1 roll
  35.         % Stack: ncomp -mark- basesetcolor map
  36.      dup type /stringtype eq
  37.       {  { -
  38.         { exch round cvi get 255 div
  39.         }
  40.        -
  41.         { exch round cvi 3 mul 2 copy 2 copy get 255 div
  42.           3 1 roll 1 add get 255 div
  43.           4 2 roll 2 add get 255 div
  44.         }
  45.         { exch round cvi 4 mul 2 copy 2 copy 2 copy get 255 div
  46.           3 1 roll 1 add get 255 div
  47.           4 2 roll 2 add get 255 div
  48.           5 3 roll 3 add get 255 div
  49.         }
  50.      }
  51.     4 index get aload pop counttomark -1 roll
  52.       }
  53.       { /exec load 3 -1 roll
  54.         % Stack: -mark- mapproc --exec-- basesetcolor
  55.       }
  56.      ifelse .packtomark cvx
  57.      exch pop 1 exch
  58.    } bind def
  59.   /Separation
  60.    { dup 2 index //.csncompdict exch get exec
  61.         % Stack: [/Separation name alt xform] ncomp altsetcolor
  62.      3 -1 roll 3 get /exec load 3 -1 roll 3 array astore readonly cvx
  63.      exch pop 1 exch
  64.    } bind def
  65.     % Substitute device spaces for CIE spaces.
  66.   /CIEBasedA /DeviceGray load def
  67.   /CIEBasedABC /DeviceRGB load def
  68.   /CIEBasedDEF /DeviceRGB load def
  69.   /CIEBasedDEFG /DeviceCMYK load def
  70. end
  71.  
  72. /.packtomark { counttomark packedarray exch pop } bind def
  73.  
  74. /.csinextbits        % - .csinextbits <bits>
  75.             % Uses b, nnb, i, row, mask, BitsPerComponent;
  76.             % sets b, nnb, i.
  77.  { /nnb nnb BitsPerComponent add
  78.     { dup 0 le { exit } if
  79.       /b b 8 bitshift row i get add def
  80.       /i i 1 add def  8 sub
  81.     }
  82.    loop def
  83.    b nnb bitshift mask and
  84.  } bind def
  85.  
  86. % Note that the ColorSpace key must be present in the image dictionary.
  87. /.colorspaceimage        % <imagedict> .colorspaceimage -
  88.  { save exch
  89.    dup length 15 add dict begin { cvlit def } forall
  90.    ColorSpace dup dup type /nametype ne { 0 get } if
  91.    .csncompdict exch get exec
  92.      /setpixelcolor exch def  /ncomp exch def  pop
  93.    /row ncomp BitsPerComponent mul Width mul 7 add 8 idiv string def
  94.       /mask 1 BitsPerComponent bitshift 1 sub def
  95.       /nextbits BitsPerComponent 8 eq
  96.        { { row i get /i i 1 add def } }
  97.        { /.csinextbits load }
  98.       ifelse def
  99.       /nextpixel mark 0 2 ncomp 1 sub 2 mul
  100.        { /nextbits cvx exch
  101.      Decode exch 2 getinterval
  102.      dup aload pop exch sub
  103.      dup mask eq { pop } { mask div /mul load 3 -1 roll } ifelse
  104.      0 get dup 0 eq { pop } { /sub load 3 -1 roll } ifelse
  105.        }
  106.       for
  107.       /setpixelcolor load dup type /operatortype ne { /exec load } if
  108.       .packtomark cvx def
  109.       /readrow
  110.         /DataSource load dup type
  111.         dup /arraytype eq exch /packedarraytype eq or
  112.     {    % Must be { <file> <string> ... }
  113.       aload length 1 add array /pop load exch astore
  114.       dup 1 row put cvx
  115.     }
  116.     { pop
  117.         % Adobe requires readstring to signal an error if given
  118.         % an empty string.  Work around this nonsense here.
  119.           row length 0 eq
  120.        { { } }
  121.        { { DataSource row readstring pop pop } }
  122.       ifelse
  123.     }
  124.       ifelse def
  125.       ImageMatrix matrix invertmatrix concat
  126.       /imat matrix def
  127.       0 1 Height 1 sub
  128.        { imat 5 3 -1 roll neg put
  129.      readrow
  130.      /b 0 def  /nnb 0 def  /i 0 def
  131.      0 1 Width 1 sub
  132.       { imat 4 3 -1 roll neg put nextpixel
  133.         1 1 true imat {<80>} imagemask
  134.       }
  135.      for
  136.        }
  137.       for
  138.    end restore
  139.  } bind def
  140.  
  141. %END
  142. exec
  143. currentfile closefile
  144.  
  145. % Patch for testing.
  146. /.cincompdict 3 dict begin
  147.   1 { {0 1} {/DeviceGray} } def
  148.   3 { {0 1 0 1 0 1} {/DeviceRGB} } def
  149.   4 { {0 1 0 1 0 1 0 1} {/DeviceCMYK} } def
  150. currentdict end def
  151. /.imagekeys [
  152.   /Decode /DataSource /ImageMatrix /BitsPerComponent /Height /Width
  153. ] def
  154. /colorimage        % <width> <height> <bits/comp> <matrix>
  155.             %   <datasrc> false <ncomp> colorimage -
  156.  { 1 index { /colorimage load /rangecheck signalerror } if exch pop
  157.    //.cincompdict exch get exec
  158.    7 dict begin /ColorSpace exch cvlit def
  159.    .imagekeys { exch cvlit def } forall
  160.    currentdict end .colorspaceimage
  161.  } bind odef
  162. /image
  163.  { dup type /dicttype ne
  164.     { 7 dict begin /ColorSpace /DeviceGray def [0 1] 
  165.       .imagekeys { exch cvlit def } forall
  166.       currentdict end
  167.     }
  168.     { dup length 1 add dict .copydict dup /ColorSpace currentcolorspace put
  169.     }
  170.    ifelse
  171.    .colorspaceimage
  172.  } bind odef
  173.  
  174. exec
  175.